(telnet-initial-filter): Use clear-this-command-keys.

diff --git a/lisp/telnet.el b/lisp/telnet.el
index 2bb605332aabc24af39d6f7d6112c7f1ead87f8d..557d00534d43c65b536c87f1f0e91b33c255122b 100644 (file)
--- a/lisp/telnet.el
+++ b/lisp/telnet.el
@@ -141,7 +141,8 @@ rejecting one login and prompting again for a username and password.")
             (telnet-filter proc string)
             (setq telnet-count 0)
             (send-string proc (concat (comint-read-noecho "Password: " t)
-                                      telnet-new-line)))
+                                      telnet-new-line))
+            (clear-this-command-keys))
            (t (telnet-check-software-type-initialize string)
               (telnet-filter proc string)
               (cond ((> telnet-count telnet-maximum-count)